home *** CD-ROM | disk | FTP | other *** search
/ Psygnosis Promotional CD-ROM for E3 1998 / Psygnosis Promotional CD-ROM for E3 1998.iso / introseq.dir / 00024_Script_select Platform < prev    next >
Text File  |  1998-05-08  |  618b  |  20 lines
  1. global GameType, gPlatformList, gPlatformObj, gAction
  2. -------------------------------------------
  3. on mouseDown me 
  4.   if (GameType <> 0) OR (gAction <> 5) then exit
  5.   set theSprite = the spriteNum of me
  6.   set GameType = the name of member (the member of sprite theSprite)
  7.   -------
  8.   repeat with n = 1 to count(gPlatformList)
  9.     set theObj = getAt(gPlatformList, n)
  10.     set myMember = the myImage of theObj
  11.     if myMember = GameType then
  12.       set gPlatformObj = theObj
  13.       deleteAt gPlatformList, n
  14.       exit repeat
  15.     end if
  16.   end repeat
  17.   -------
  18.   prepareNextAction
  19.   -------
  20. end mouseDown